home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Tool Chest / !Interfaces / Universal Interfaces 2.0a1 / PInterfaces / AEUserTermTypes.p < prev    next >
Encoding:
Text File  |  1994-07-17  |  2.4 KB  |  89 lines  |  [TEXT/MPS ]
  1. {
  2.      File:        AEUserTermTypes.p
  3.  
  4.      Copyright:    © 1984-1994 by Apple Computer, Inc.
  5.                  All rights reserved.
  6.  
  7.      Version:    Universal Interfaces 2.0a1.  ETO #15, MPW prerelease.  Sunday, July 17, 1994. 
  8.  
  9.      Bugs?:        If you find a problem with this file, send the file and version
  10.                  information (from above) and the problem description to:
  11.  
  12.                      Internet:    apple.bugs@applelink.apple.com
  13.                      AppleLink:    APPLE.BUGS
  14.  
  15. }
  16.  
  17. {$IFC UNDEFINED UsingIncludes}
  18. {$SETC UsingIncludes := 0}
  19. {$ENDC}
  20.  
  21. {$IFC NOT UsingIncludes}
  22.  UNIT AEUserTermTypes;
  23.  INTERFACE
  24. {$ENDC}
  25.  
  26. {$IFC UNDEFINED __AEUSERTERMTYPES__}
  27. {$SETC __AEUSERTERMTYPES__ := 1}
  28.  
  29. {$I+}
  30. {$SETC AEUserTermTypesIncludes := UsingIncludes}
  31. {$SETC UsingIncludes := 1}
  32.  
  33.  
  34. {$PUSH}
  35. {$ALIGN MAC68K}
  36. {$LibExport+}
  37.  
  38. CONST
  39.     kAEUserTerminology            = 'aeut';                        {  0x61657574  }
  40.     kAETerminologyExtension        = 'aete';                        {  0x61657465  }
  41.     kAEScriptingSizeResource    = 'scsz';
  42.  
  43.     kAEUTHasReturningParam        = 31;                            { if event has a keyASReturning param }
  44.     kAEUTOptional                = 15;                            { if something is optional }
  45.     kAEUTlistOfItems            = 14;                            { if property or reply is a list. }
  46.     kAEUTEnumerated                = 13;                            { if property or reply is of an enumerated type. }
  47.     kAEUTReadWrite                = 12;                            { if property is writable. }
  48.     kAEUTChangesState            = 12;                            { if an event changes state. }
  49.     kAEUTTightBindingFunction    = 12;                            { if this is a tight-binding precedence function. }
  50.     kAEUTApostrophe                = 3;                            { if a term contains an apostrophe. }
  51.     kAEUTFeminine                = 2;                            { if a term is feminine gender. }
  52.     kAEUTMasculine                = 1;                            { if a term is masculine gender. }
  53.     kAEUTPlural                    = 0;                            { if a term is plural. }
  54.  
  55.  
  56. TYPE
  57.     TScriptingSizeResource = RECORD
  58.         scriptingSizeFlags:        INTEGER;
  59.         minStackSize:            LONGINT;
  60.         preferredStackSize:        LONGINT;
  61.         maxStackSize:            LONGINT;
  62.         minHeapSize:            LONGINT;
  63.         preferredHeapSize:        LONGINT;
  64.         maxHeapSize:            LONGINT;
  65.     END;
  66.  
  67. CONST
  68.     kLaunchToGetTerminology        = 0+(1 * (2**(15)));
  69. { if 0, read aete directly from res file; if 1, then launch and use gdut event  }
  70.     kDontFindAppBySignature        = 0+(1 * (2**(14)));
  71. { if 0, then find app with signature if lost; if 1, then don't }
  72.     kAlwaysSendSubject            = 0+(1 * (2**(13)));
  73.  
  74. { if 0, then send subject when appropriate; if 1, then every event has Subject Attribute }
  75. { old names for above bits. }
  76.     kReadExtensionTermsMask        = 0+(1 * (2**(15)));
  77.  
  78.  
  79. {$ALIGN RESET}
  80. {$POP}
  81.  
  82. {$SETC UsingIncludes := AEUserTermTypesIncludes}
  83.  
  84. {$ENDC} {__AEUSERTERMTYPES__}
  85.  
  86. {$IFC NOT UsingIncludes}
  87.  END.
  88. {$ENDC}
  89.